home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Utilities / Text Utils / Alpha 5.81 ƒ / Tcl / UserCode / createStuffItArchive.tcl < prev    next >
Encoding:
Text File  |  1994-07-07  |  1.3 KB  |  50 lines  |  [TEXT/ALFA]
  1. set distScript {
  2. New Archive "Internal:Desktop Folder:Alpha.5.5b2.sea"
  3. Use "Alpha 5.5b2.sea"
  4. Stuff "Internal:Development:Alpha:Alpha 5.5b2" compress 
  5. Stuff "Internal:Development:Alpha:Changes" compress 
  6. Stuff "Internal:Development:Alpha:Help:" compress 
  7. Stuff "Internal:Development:Alpha:README" compress 
  8. Stuff "Internal:Development:Alpha:Tcl:" compress 
  9. Stuff "Internal:Development:Alpha:xtcls:" compress 
  10. Quit
  11. }
  12.  
  13. set backupScript {
  14. Write Status To 
  15. New Archive "External:Desktop Folder:Alpha.source.5.3.sea"
  16. Use "Alpha.source.5.3.sea"
  17. Stuff "Internal:C:Alpha:Alpha" compress 
  18. Stuff "Internal:C:Alpha:Alpha.rsrc" compress 
  19. Stuff "Internal:C:Alpha:Changes" compress 
  20. Stuff "Internal:C:Alpha:Help:" compress 
  21. Stuff "Internal:C:Alpha:README" compress 
  22. Stuff "Internal:C:Alpha:Tcl:" compress 
  23. Stuff "Internal:C:Alpha:xtcls:" compress 
  24. Stuff "Internal:C:Alpha:EditSource:" compress 
  25. Stuff "Internal:C:Alpha:Tcl 6.2:" compress 
  26. Quit
  27. }
  28.  
  29. proc createStuffitArchive {} {
  30.     global distScript
  31.     sendStuffitScript $distScript
  32. }
  33.  
  34. proc backupSource {} {
  35.     global backupScript
  36.     sendStuffitScript $backupScript
  37. }
  38.  
  39. proc sendStuffitScript script {
  40.     regexp {[0-9.]+} [version] vers
  41.     if ![regsub -all {5.[0-9]+} $script $vers outScript] {
  42.         alertnote "Script substitution error"
  43.         return
  44.     }
  45.     launch "Internal:Utils:StuffIt Deluxe™"
  46.     dosc -n "StuffIt Deluxe™" -r -s $outScript
  47. }
  48.  
  49.  
  50.